home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_A.d64 / reader's survey (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  312 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *  pgm title : reader's survey  *
  4. 4 rem *  pgm author: dave hammond     *
  5. 5 rem *                               *
  6. 6 rem *  (c)1986 viking technologies  *
  7. 7 rem *    (c)1986 uptime magazine    *
  8. 8 rem *                               *
  9. 9 rem *********************************
  10. 10 :
  11. 15 if x=0 then x=1: load "0:lptr rtn",8,1
  12. 16 :
  13. 20 print chr$(8)chr$(14)
  14. 30 uptime=(8*4096)+4: de=186
  15. 40 poke53280,0: poke53281,0
  16. 95 :
  17. 100 gosub 1000: rem *** screen template ***
  18. 110 gosub 1500: rem *** screen #1 ***
  19. 115 :
  20. 120 get k$: if k$="" then 120
  21. 130 if k$=chr$(140) then 550
  22. 140 if k$<>chr$(13) then 120
  23. 195 :
  24. 200 gosub 1600: rem *** screen #2 ***
  25. 205 :
  26. 210 get k$: if k$="" then 210
  27. 220 if k$=chr$(140) then 550
  28. 230 if k$<>chr$(13) then 210
  29. 295 :
  30. 300 gosub 1700: rem *** screen #3 ***
  31. 305 :
  32. 310 get k$: if k$="" then 310
  33. 320 if k$=chr$(140) then 550
  34. 330 if k$<>chr$(13) then 310
  35. 395 :
  36. 400 gosub 1800: rem *** screen #4 ***
  37. 405 :
  38. 410 ml=23: gosub 5000: rem *** get kbd input ***
  39. 415 :
  40. 420 n$=t$: if t$="" then n$="an anonymous source"
  41. 425 :
  42. 430 gosub 1900: rem *** screen #4 con't ***
  43. 435 :
  44. 440 get k$: if k$="" then 440
  45. 450 if k$=chr$(140) then 550
  46. 460 if k$<>chr$(13) then 440
  47. 465 :
  48. 500 er=0: gosub 2000: rem *** output to printer ***
  49. 505 if er=1 then goto 600
  50. 506 :
  51. 510 gosub 3000: rem *** screen #5 ***
  52. 515 :
  53. 520 get k$: if k$="" then 520
  54. 530 if k$=chr$(140) then 550
  55. 540 if k$<>chr$(13) then 520
  56. 545 :
  57. 550 poke de,8: sys uptime
  58. 595 :
  59. 596 rem ***************
  60. 597 rem  printer error
  61. 598 rem ***************
  62. 599 :
  63. 600 gosub 1400: rem *** clear text area ***
  64. 605 :
  65. 610 printspc(6)" [150] [212]here is a printer error  [155]"
  66. 620 printspc(6)"[210]echeck all of your printer"
  67. 630 printspc(5)"connections and the printer's"
  68. 640 printspc(6)"paper supply and try again."
  69. 645 :
  70. 650 get k$: if k$="" then 650
  71. 660 if k$=chr$(140) then 550
  72. 670 if k$<>chr$(13) then 650
  73. 675 :
  74. 680 gosub 1400: rem *** clear text area ***
  75. 685 :
  76. 690 printspc(16)"[208]rinting"
  77. 700 printspc(12)"[210]eader's  [211]urvey"
  78. 710 goto 500: rem *** retry printer ***
  79. 990 end
  80. 995 :
  81. 996 rem *****************
  82. 997 rem  screen template
  83. 998 rem *****************
  84. 999 :
  85. 1000 print"[147]";
  86. 1010 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  87. 1020 bl$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
  88. 1030 m1$="[221]": m2$="                                     [146][221]"
  89. 1040 m3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  90. 1050 c$="[158]": r$="": printtl$
  91. 1060 for x=1to23
  92. 1070 printm1$;c$;r$;m2$
  93. 1080 if x=5 then x=6: c$="": r$="[146]": printm3$
  94. 1090 if x=18 then x=19: c$="": r$="": printm3$
  95. 1100 next
  96. 1200 printbl$
  97. 1210 printspc(10)" [213]p[212]ime [158] [205]agazine's"
  98. 1220 printspc(12)"[210]eader's [211]urvey"
  99. 1230 for x=1to16: print: next
  100. 1240 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
  101. 1250 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
  102. 1290 return
  103. 1395 :
  104. 1396 rem *****************
  105. 1397 rem  clear text area
  106. 1398 rem *****************
  107. 1399 rem :
  108. 1400 print"";
  109. 1410 for x=1to12
  110. 1420 print"[221]                                     [221]"
  111. 1430 next
  112. 1440 print"[155]";
  113. 1450 return
  114. 1495 :
  115. 1496 rem ***********
  116. 1497 rem  screen #1
  117. 1498 rem ***********
  118. 1499 :
  119. 1500 gosub 1400: rem *** clear text area ***
  120. 1505 :
  121. 1510 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
  122. 1520 printspc(2)"is the [159]premiere[155] magazine on a disk"
  123. 1530 printspc(7)"for the [195]ommodore 64/128"
  124. 1540 printspc(5)"[215]e are constantly working to"
  125. 1550 printspc(8)"improve our publication"
  126. 1560 printspc(11)"and [217][207][213][155][160]can help!"
  127. 1590 return
  128. 1595 :
  129. 1596 rem ***********
  130. 1597 rem  screen #2
  131. 1598 rem ***********
  132. 1599 :
  133. 1600 gosub 1400: rem *** clear text area ***
  134. 1605 :
  135. 1610 printspc(6)"[217]ou can help us stay #1[155] by"
  136. 1620 printspc(9)"providing your input:
  137. 1630 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
  138. 1640 [153][166]4)"atnnything that you feel will help"
  139. 1650 [153][166]7)"us meet your expectations"
  140. 1660 [153][166]14)"with (NULL)p(NULL)imelist"
  141. 1690 [142]
  142. 1695 :
  143. 1696 [143] ***********
  144. 1697 [143]  screen #3
  145. 1698 [143] ***********
  146. 1699 :
  147. 1700 [141] 1400: [143] *** clear text area ***
  148. 1705 :
  149. 1710 [153][166]3)"peeky following the next few prompts"
  150. 1720 [153][166]5)"your printer will print out a"
  151. 1730 [153][166]5)"reader's survey form for you."
  152. 1740 [153][166]4)"(NULL)lease take the time to fill out"
  153. 1750 [153][166]3)"the survey and return it using the"
  154. 1760 [153][166]4)"enclosed business reply envelope."
  155. 1770 [153][166]4)"(NULL)e will use the results of this"
  156. 1780 [153][166]5)"survey to determine what it is"
  157. 1790 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
  158. 1795 :
  159. 1796 [143] ***********
  160. 1797 [143]  screen #4
  161. 1798 [143] ***********
  162. 1799 :
  163. 1800 [141] 1400: [143] *** clear text area ***
  164. 1805 :
  165. 1810 [153][166]3)"right$f you'd like to include your name"
  166. 1820 [153][166]10)"enter it now, please."
  167. 1830 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
  168. 1840 [153][166]4)"(NULL)ame:tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  169. 1850 [153][166]8)"onon*cmd";
  170. 1860 [142]
  171. 1895 :
  172. 1896 [143] *****************
  173. 1897 [143]  screen #4 con't
  174. 1898 [143] *****************
  175. 1899 :
  176. 1900 [141] 5200: [143] *** ck for dsywhl ***
  177. 1905 [153][166]11)"(NULL)eady your printer"
  178. 1910 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
  179. 1920 [142]
  180. 1995 :
  181. 1996 [143] *******************
  182. 1997 [143]  output to printer
  183. 1998 [143] *******************
  184. 1999 :
  185. 2000 [151]780,4: [151]782,7: [158] 828: [143] *** ml routine to open printer chn ***
  186. 2010 [139] [194](783)[175] 1 [167] er[178]1: [137] 2490
  187. 2015 :
  188. 2020 [152]4,[199](10)
  189. 2025 [152]4,""[166]12)"(NULL)eader's (NULL)urvey for the lenommodore 64/128    (NULL)ol. 1 (NULL)o. 5"
  190. 2030 [152]4,[199](10)
  191. 2040 [152]4,"     (NULL)his survey is from ";n$;"."
  192. 2050 [152]4,[199](0)
  193. 2055 [143] l$="tototototo": if dw=1 then l$="......."
  194. 2060 [152]4,"        1. (NULL)hat sort of advertisements would you want ";
  195. 2070 [152]4,"(NULL)p(NULL)ime to"
  196. 2072 [152]4,"           present you with?  (lenheck all that apply)"
  197. 2075 [152]4,[199](0)
  198. 2080 [152]4,"           [   ]  lenomputer (NULL)elated";
  199. 2090 [152]4,"       [   ]  (NULL)ther ";
  200. 2100 l$[178]"totototototototototototototototo"
  201. 2105 [139] dw[178]1 [167] l$[178]"................"
  202. 2110 [152]4,l$
  203. 2120 [152]4,"           [   ]  (NULL)pecial right$nterests";
  204. 2125 [152]4,"      [   ]  (NULL)one
  205. 2126 print#4,chr$(0)
  206. 2130 print#4,"        2. [200]ow would you like to see an ad displayed?"
  207. 2135 print#4,"           ([195]heck all that apply)"
  208. 2145 print#4,chr$(0)
  209. 2147 print#4,"           [   ]  [211]tatic [211]creen [196]isplay";
  210. 2150 print#4,"  [   ]  [205]enu [201]tem"
  211. 2155 print#4,"           [   ]  [201]nteractive [196]isplay";
  212. 2157 print#4,"    [   ]  [193]utomatically [196]isplayed"
  213. 2160 print#4,chr$(0)
  214. 2165 print#4,"     ***********************************";
  215. 2167 print#4,"***************************************"
  216. 2170 bx$="[   ]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  217. 2172 if dw=1 then bx$="[   ]   ....................................."
  218. 2175 print#4,chr$(0)
  219. 2180 print#4,"     [208]lease rate the following programs and categories on a"
  220. 2190 print#4,"     scale between 1 and 10 with 10 being the highest."
  221. 2195 print#4,chr$(0)
  222. 2200 print#4,"     [209]uad-[204]ink        ";bx$
  223. 2205 print#4,chr$(0)
  224. 2206 print#4,"     [193]pt. of [205]ystery  ";bx$
  225. 2207 print#4,chr$(0)
  226. 2210 print#4,"     [195]olor [212]iles      ";bx$
  227. 2212 print#4,chr$(0)
  228. 2214 print#4,"     [215]ord [205]aster 128  ";bx$
  229. 2215 print#4,chr$(0)
  230. 2220 print#4,"     [212]axable [201]ncome   ";bx$
  231. 2225 print#4,chr$(0)
  232. 2230 print#4,"     [211]upermon+        ";bx$
  233. 2235 print#4,chr$(0)
  234. 2240 print#4,"     [212]ext [195]runcher    ";bx$
  235. 2247 print#4,chr$(0)
  236. 2250 print#4,"     [212]ext [213]ncruncher  ";bx$
  237. 2255 print#4,chr$(0)
  238. 2260 print#4,"     [212]esar on [212]rack   ";bx$
  239. 2261 print#4,chr$(0)
  240. 2262 print#4,"     [208]rogramming w/[205][204] ";bx$
  241. 2265 print#4,chr$(0)
  242. 2266 print#4,"     [212]he [195][194][205] [211]huffle  ";bx$
  243. 2267 print#4,chr$(0)
  244. 2270 print#4,"     [194][193][211][201][195] [212]ricks     ";bx$
  245. 2272 print#4,chr$(0)
  246. 2273 print#4,"     [211]oftware [210]eviews ";bx$
  247. 2275 print#4,chr$(0)
  248. 2280 print#4,"     [201]'d rate the issue overall  [   ]
  249. 2285 [152]4,[199](0)
  250. 2287 [152]4,[199](0)
  251. 2300 [152]4,"     atnny other comments or observations you'd care to make:"
  252. 2305 [152]4,[199](0)
  253. 2310 [152]4,"     ";l$;l$;l$;l$
  254. 2315 [152]4,[199](0)
  255. 2320 [152]4,"     ";l$;l$;l$;l$
  256. 2325 [152]4,[199](0)
  257. 2330 [152]4,[199](12)
  258. 2490 [160]4: [142]
  259. 2995 :
  260. 2996 [143] ***********
  261. 2997 [143]  screen #5
  262. 2998 [143] ***********
  263. 2999 :
  264. 3000 [141] 1400: [143] clear text area
  265. 3005 :
  266. 3010 [153][166]5)"(NULL)hank-you for taking the time"
  267. 3020 [153][166]8)"to print out the survey."
  268. 3030 [153][166]3)"(NULL)e'll be waiting to hear from you."
  269. 3040 [153][166]2)"(NULL)lease send the completed survey to"
  270. 3050 [153][166]8)"(NULL)p(NULL)ime, the str$isk (NULL)onthlylist"
  271. 3060 [153][166]8)"(NULL)(NULL) peekox 299"
  272. 3070 [153][166]8)"(NULL)ewport, (NULL)right$ 02840"
  273. 3080 [142]
  274. 4995 :
  275. 4996 [143] ***********
  276. 4997 [143]  kbd input
  277. 4998 [143] ***********
  278. 4999 :
  279. 5000 t$[178]"": cs$[178]"*cmd": ct[178]0
  280. 5010 [161] k$: [139] k$[178]"" [167] 5010
  281. 5020 k[178][198](k$)
  282. 5025 [139] k[178]140 [167] 550
  283. 5030 [139] k[178]13 [167] 5100
  284. 5040 [139] k[179][177]20 [167] 5070
  285. 5050 [139] ct[178]0 [167] 5010
  286. 5060 ct[178]ct[171]1: [153]" cmdcmd cmd";cs$;: t$[178][200](t$,ct): [137] 5010
  287. 5070 [139] ct[178]ml [167] 5010
  288. 5080 [139] (k[178]32) [176] (k[178]46) [167] 5085
  289. 5082 [139] (k$[177][178]"a") [175] (k$[179][178]"z") [167] 5085
  290. 5084 [139] (k$[179]"atn") [176] (k$[177]"(NULL)") [167] 5010
  291. 5085 t$[178]t$[170]k$: ct[178]ct[170]1: [153]k$;: [139] ct[179][177]24 [167] [153]cs$;
  292. 5090 [137] 5010
  293. 5100 [139] t$[178]"" [167] [153]"atnnonymous";
  294. 5110 [153]" ": [142]
  295. 5195 :
  296. 5196 [143] ****************************
  297. 5197 [143]  ck for daisy wheel printer
  298. 5198 [143] ****************************
  299. 5199 :
  300. 5200 [153][166]9)"listlenan your printer print"
  301. 5210 [153][166]5)"lenommodore chr$raphic characters?"
  302. 5220 [153][166]15)"sys< (NULL) / (NULL) >list": [153]"ononon";
  303. 5230 dw[178]0
  304. 5240 [161] k$: [139] k$ [178] "" [167] 5240
  305. 5250 [139] (k$[178]"y") [176] (k$[178]"(NULL)") [167] 5280
  306. 5255 [139] k$[178][199](140) [167] 550
  307. 5260 [139] (k$[179][177]"n") [175] (k$[179][177]"(NULL)") [167] 5240
  308. 5270 dw[178]1
  309. 5280 [129] x[178]1[164]3: [153]"                                   ": [130]
  310. 5285 [153]"onononon";
  311. 5290 [142]
  312.